perm filename RR.F4[MSS,LCS] blob sn#097595 filedate 1974-04-16 generic text, type T, neo UTF8
00100		CALL PLOTS(K)
00200		DO 1 K=-50,50
00300		CALL PLOT(50,K,3)
00400	1	CALL PLOT(-50,K,2)
00500		END